home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Taifun / Taifun 136 (1990-05-15)(Ossowski, Stefan)(DE)(PD).zip / Taifun 136 (1990-05-15)(Ossowski, Stefan)(DE)(PD).adf / MF-Pascal_0.2 / test2.p < prev    next >
Text File  |  1990-02-23  |  229b  |  18 lines

  1. program main(input,output);
  2. var
  3.   i: integer;
  4. Begin
  5. {   if true then
  6.    i := 3 mod 2
  7.    else
  8.    i := 3 * 2;
  9.    if i < 2
  10.    then i := i * i
  11.    else i := i+1;
  12. }case 2*i of
  13.    1,2: i:= 1 ;
  14.    3:   i:= 2 ;
  15.    else i:= 0 ;
  16.  end;
  17. end.
  18.